home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
basic
/
qmenu10.zip
/
SAMPLE1.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-05
|
2KB
|
96 lines
' An example of using a menu for goto commands in a module.
' See MENUMAN.DOC for more information.
Main:
CLS
LOCATE 2, 20: PRINT CHR$(201); STRING$(38, 205); CHR$(187)
FOR SIDE = 3 TO 21
LOCATE SIDE, 20: PRINT CHR$(186); SPACE$(38); CHR$(186)
NEXT
LOCATE 22, 20: PRINT CHR$(200); STRING$(38, 205); CHR$(188)
I = (62 - LEN(title$)) / 2
LOCATE 4, 22: COLOR 15, 0: PRINT TAB(I); "SAMPLE FOR GOTO": COLOR 7, 0
DIM Menu$(9)
Menu$(1) = "≤ 1 ≥ GOTO LEVEL 1"
Menu$(2) = "≤ 2 ≥ GOTO LEVEL 2"
Menu$(3) = "≤ 3 ≥ GOTO LEVEL 3"
Menu$(4) = "≤ 4 ≥ GOTO LEVEL 4"
Menu$(5) = "≤ 5 ≥ GOTO LEVEL 5"
Menu$(6) = "≤ 6 ≥ GOTO LEVEL 6"
Menu$(7) = "≤ 7 ≥ GOTO LEVEL 7"
Menu$(8) = "≤ 8 ≥ GOTO LEVEL 8"
Menu$(9) = "≤ 9 ≥ QUIT PROGRAM"
X = (56 - LEN(Menu$)) / 2
FOR SET = 1 TO 9
LOCATE SET + 8, 22: COLOR 15, 0: PRINT TAB(X); Menu$(SET): COLOR 7, 0
NEXT
DO: opt$ = INPUT$(1)
LOOP WHILE INSTR("123456789", opt$) = 0
SELECT CASE opt$
CASE "1": GOTO LEVEL1
CASE "2": GOTO LEVEL2
CASE "3": GOTO LEVEL3
CASE "4": GOTO LEVEL4
CASE "5": GOTO LEVEL5
CASE "6": GOTO LEVEL6
CASE "7": GOTO LEVEL7
CASE "8": GOTO LEVEL8
CASE "9": GOTO GoodBye
END SELECT
LEVEL1:
CLS
LOCATE 2, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 1"
SLEEP 10
GOTO Main
LEVEL2:
CLS
LOCATE 4, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 2"
SLEEP 10
GOTO Main
LEVEL3:
CLS
LOCATE 6, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 3"
SLEEP 10
GOTO Main
LEVEL4:
CLS
LOCATE 8, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 4"
SLEEP 10
GOTO Main
LEVEL5:
CLS
LOCATE 10, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 5"
SLEEP 10
GOTO Main
LEVEL6:
CLS
LOCATE 12, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 6"
SLEEP 10
GOTO Main
LEVEL7:
CLS
LOCATE 12, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 7"
SLEEP 10
GOTO Main
LEVEL8:
CLS
LOCATE 14, 1: PRINT STRING$(55, 219); " THIS IS LEVEL 8"
SLEEP 10
GOTO Main
GoodBye:
CLS
LOCATE 14, 20: COLOR 0, 15: PRINT " DEMO PROGRAM OVER ": COLOR 15, 0
SLEEP 10
SYSTEM